<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-comment">-----------------------------------------------------------------------------</span><span>
</span><span id="line-2"></span><span class="hs-comment">-- |</span><span>
</span><span id="line-3"></span><span class="hs-comment">-- Module      :  Distribution.PackageDescription.Utils</span><span>
</span><span id="line-4"></span><span class="hs-comment">--</span><span>
</span><span id="line-5"></span><span class="hs-comment">-- Maintainer  :  cabal-devel@haskell.org</span><span>
</span><span id="line-6"></span><span class="hs-comment">-- Portability :  portable</span><span>
</span><span id="line-7"></span><span class="hs-comment">--</span><span>
</span><span id="line-8"></span><span class="hs-comment">-- Common utils used by modules under Distribution.PackageDescription.*.</span><span>
</span><span id="line-9"></span><span>
</span><span id="line-10"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Distribution.PackageDescription.Utils</span><span> </span><span class="hs-special">(</span><span>
</span><span id="line-11"></span><span>  </span><span class="annot"><a href="Distribution.PackageDescription.Utils.html#cabalBug"><span class="hs-identifier">cabalBug</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.PackageDescription.Utils.html#userBug"><span class="hs-identifier">userBug</span></a></span><span>
</span><span id="line-12"></span><span>  </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-13"></span><span>
</span><span id="line-14"></span><span class="hs-comment">-- ----------------------------------------------------------------------------</span><span>
</span><span id="line-15"></span><span class="hs-comment">-- Exception and logging utils</span><span>
</span><span id="line-16"></span><span>
</span><span id="line-17"></span><span id="local-6989586621679612577"><span class="annot"><a href="Distribution.PackageDescription.Utils.html#userBug"><span class="hs-identifier hs-type">userBug</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679612577"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-18"></span><span id="userBug"><span class="annot"><span class="annottext">userBug :: forall a. String -&gt; a
</span><a href="Distribution.PackageDescription.Utils.html#userBug"><span class="hs-identifier hs-var hs-var">userBug</span></a></span></span><span> </span><span id="local-6989586621679612563"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679612563"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; a
forall a. HasCallStack =&gt; String -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; a) -&gt; String -&gt; a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679612563"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;. This is a bug in your .cabal file.&quot;</span></span><span>
</span><span id="line-19"></span><span>
</span><span id="line-20"></span><span id="local-6989586621679612561"><span class="annot"><a href="Distribution.PackageDescription.Utils.html#cabalBug"><span class="hs-identifier hs-type">cabalBug</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679612561"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-21"></span><span id="cabalBug"><span class="annot"><span class="annottext">cabalBug :: forall a. String -&gt; a
</span><a href="Distribution.PackageDescription.Utils.html#cabalBug"><span class="hs-identifier hs-var hs-var">cabalBug</span></a></span></span><span> </span><span id="local-6989586621679612558"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679612558"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; a
forall a. HasCallStack =&gt; String -&gt; a
</span><a href="../../base/src/GHC.Err.html#error"><span class="hs-identifier hs-var">error</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; a) -&gt; String -&gt; a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679612558"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;. This is possibly a bug in Cabal.\n&quot;</span></span><span>
</span><span id="line-22"></span><span>               </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Please report it to the developers: &quot;</span></span><span>
</span><span id="line-23"></span><span>               </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;https://github.com/haskell/cabal/issues/new&quot;</span></span><span>
</span><span id="line-24"></span></pre></body></html>